home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PASANS.ZIP
/
CH10_1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
638b
|
31 lines
(* Chapter 10 - Programming exercise 1 *)
program Simple_WP;
var In_Line : string[60];
Index : integer;
c : char;
begin
repeat
In_Line := '';
Index := 0;
repeat
Index := Index + 1;
Read(c);
In_Line := In_Line + c;
until (Index = 60) or (In_Line[Index] = Chr(10));
Writeln(In_Line);
until (In_Line[1] = 'E') and
(In_Line[2] = 'N') and
(In_Line[3] = 'D');
end.
{ Result of execution
(The input is echoed line by line until END is entered.)
}